home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / batch / batprogs / example.bat < prev    next >
DOS Batch File  |  1985-01-20  |  481b  |  29 lines
  1. ECHO OFF
  2. :REPEAT
  3. CLS
  4. READ EXAMPLE.DAT
  5. CHOOSE                     Which one do you want ?
  6. IF ERRORLEVEL 4 GOTO END
  7. IF ERRORLEVEL 3 GOTO TIP
  8. IF ERRORLEVEL 2 GOTO FORTUNE
  9. CLS
  10. BEEP
  11. ECHO You are 10 pounds overweight.
  12. GOTO QUERY
  13. :FORTUNE
  14. CLS
  15. BEEP
  16. ECHO You will receive money sometime in the next month.
  17. GOTO QUERY
  18. :TIP
  19. CLS
  20. BEEP
  21. ECHO Put your money in CD's, not the market.
  22. :QUERY
  23. ECHO .
  24. ECHO .
  25. INPUT Want some more ?
  26. IF NOT ERRORLEVEL 1 GOTO REPEAT
  27. :END
  28. CLS
  29.